local
local
StringLength
integer
integer
integer
integer
integer
then
call
SubString
SubString
SubString
call
SubString
call
endif
else
then
set
set
set
set
SubString
call
else
loop
SubString
SubString
call
exitwhen
set
set
endloop
endif
endif
endif
